Ancient Asian Sex Secrets/Ancient Asian Sex Secrets.iso/mac/EROSPROM.Dxr/00232.ls

Text File | 1996-09-05 | 963 b | 38 lines

on m6
  global MD3, rantime, mp, s6, e6
  set the cursor of sprite 6 to 4
  set rantime to the ticks
  set mp to 6
  if the castNum of sprite 6 = e6 then
    set the castNum of sprite 6 to s6
    set MD3 to the duration of cast s6 - 3
  else
    set MD3 to the duration of cast (the castNum of sprite 6 + 1) - 3
    set the castNum of sprite 6 to the castNum of sprite 6 + 1
  end if
  set the cursor of sprite 6 to [234, 235]
end

on m7
  global MD4, rantime, mp, s7, e7
  set the cursor of sprite 7 to 4
  set rantime to the ticks
  set mp to 7
  if the castNum of sprite 7 = e7 then
    set the castNum of sprite 7 to s7
    set MD4 to the duration of cast s7 - 3
  else
    set MD4 to the duration of cast (the castNum of sprite 7 + 1) - 3
    put
    set the castNum of sprite 7 to the castNum of sprite 7 + 1
  end if
  set the cursor of sprite 7 to [234, 235]
end

on chksnd
  global curSND
  if not soundBusy(1) then
    puppetSound(curSND)
  end if
end